home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 February / 1989-02.d64 / bin_hex enhancer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  983b  |  36 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 15 poke53281,6:poke53280,14
  3. 20 print"[147][154]   copyright 1989 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 print"poking ml data at";
  6. 50 ad=peek(55)+256*peek(56)-119
  7. 60 hi=int(ad/256):lo=ad-hi*256
  8. 70 poke55,lo:poke56,hi:clr
  9. 80 ad=peek(55)+256*peek(56)
  10. 90 restore:printad"....";
  11. 100 fori=0to117:readx:pokei+ad,x:z=z+x:next
  12. 110 ifz<>11151thenprint:print"error in data statements.":stop
  13. 120 x=ad+11:hi=int(x/256):lo=x-hi*256
  14. 130 pokead+1,lo:pokead+6,hi
  15. 140 print:print"done!":sysad:new
  16. 150 data 169,11,141,10,3,169
  17. 160 data 192,141,11,3,96,169
  18. 170 data 0,133,13,32,115,0
  19. 180 data 8,201,37,240,8,201
  20. 190 data 36,240,34,40,76,141
  21. 200 data 174,169,0,133,98,133
  22. 210 data 99,32,115,0,56,233
  23. 220 data 48,201,2,176,11,6
  24. 230 data 99,38,98,101,99,133
  25. 240 data 99,24,144,235,24,144
  26. 250 data 50,169,0,133,98,133
  27. 260 data 99,32,115,0,56,233
  28. 270 data 48,201,23,176,237,201
  29. 280 data 10,144,7,56,233,7
  30. 290 data 201,10,144,226,6,99
  31. 300 data 38,98,6,99,38,98
  32. 310 data 6,99,38,98,6,99
  33. 320 data 38,98,101,99,133,99
  34. 330 data 24,144,212,162,144,40
  35. 340 data 56,76,73,188
  36.